home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / m_to_r / rtcg / testunit.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  4.2 KB  |  154 lines
  1. unit TestUnit;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, DB, DBTables, RtChkGrp, Menus, ExtCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Memo1: TMemo;
  13.     RtCheckGroup1: TRtCheckGroup;
  14.     ListBox1: TListBox;
  15.     Button2: TButton;
  16.     Button3: TButton;
  17.     Button4: TButton;
  18.     Label1: TLabel;
  19.     Label2: TLabel;
  20.     RtCheckGroup2: TRtCheckGroup;
  21.     RtCheckGroup3: TRtCheckGroup;
  22.     Label3: TLabel;
  23.     RadioGroup1: TRadioGroup;
  24.     procedure Button3Click(Sender: TObject);
  25.     procedure Button4Click(Sender: TObject);
  26.     procedure Button1Click(Sender: TObject);
  27.     procedure Button2Click(Sender: TObject);
  28.     procedure RtCheckGroup1Click(Sender: TObject);
  29.     procedure RtCheckGroup2Click(Sender: TObject);
  30.     procedure RtCheckGroup3Click(Sender: TObject);
  31.     procedure RtCheckGroup1Check(Sender: TObject; Index: Integer;
  32.       var Value: Boolean);
  33.     procedure RadioGroup1Click(Sender: TObject);
  34.     procedure RtCheckGroup3DrawItem(Sender: TObject; Index: Integer;
  35.       Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
  36.   private
  37.     { Private-Deklarationen }
  38.   public
  39.     { Public-Deklarationen }
  40.   end;
  41.  
  42. var
  43.   Form1: TForm1;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure TForm1.Button3Click(Sender: TObject);
  50. var
  51.    i: integer;
  52. begin
  53.    for i:=0 to Memo1.Lines.Count-1 do
  54.    begin
  55.       if RtCheckGroup1.Items.IndexOf(Memo1.Lines[i])<0 then
  56.          RtCheckGroup1.Items.Add(Memo1.Lines[i]);
  57.       if RtCheckGroup2.Items.IndexOf(Memo1.Lines[i])<0 then
  58.          RtCheckGroup2.Items.Add(Memo1.Lines[i]);
  59.       if RtCheckGroup3.Items.IndexOf(Memo1.Lines[i])<0 then
  60.          RtCheckGroup3.Items.Add(Memo1.Lines[i]);
  61.    end;
  62. end;
  63.  
  64. procedure TForm1.Button4Click(Sender: TObject);
  65. var
  66.    i,n: integer;
  67. begin
  68.    for i:=0 to Memo1.Lines.Count-1 do
  69.    begin
  70.       n := RtCheckGroup1.Items.IndexOf(Memo1.Lines[i]);
  71.       if n>=0 then
  72.          RtCheckGroup1.Items.Delete(n);
  73.       n := RtCheckGroup2.Items.IndexOf(Memo1.Lines[i]);
  74.       if n>=0 then
  75.          RtCheckGroup2.Items.Delete(n);
  76.       n := RtCheckGroup3.Items.IndexOf(Memo1.Lines[i]);
  77.       if n>=0 then
  78.          RtCheckGroup3.Items.Delete(n);
  79.    end;
  80. end;
  81.  
  82. procedure TForm1.Button1Click(Sender: TObject);
  83. var
  84.    i: integer;
  85. begin
  86.    for i:=0 to Memo1.Lines.Count-1 do
  87.    begin
  88.       RtCheckGroup1.Value[Memo1.Lines[i]] := True;
  89.       RtCheckGroup2.Value[Memo1.Lines[i]] := True;
  90.       RtCheckGroup3.Value[Memo1.Lines[i]] := True;
  91.    end;
  92. end;
  93.  
  94. procedure TForm1.Button2Click(Sender: TObject);
  95. var
  96.    i: integer;
  97. begin
  98.    for i:=0 to Memo1.Lines.Count-1 do
  99.    begin
  100.       RtCheckGroup1.Value[Memo1.Lines[i]] := False;
  101.       RtCheckGroup2.Value[Memo1.Lines[i]] := False;
  102.       RtCheckGroup3.Value[Memo1.Lines[i]] := False;
  103.    end;
  104. end;
  105.  
  106. procedure TForm1.RtCheckGroup1Click(Sender: TObject);
  107. begin
  108.     ListBox1.Items.Assign(RtCheckGroup1.Checked);
  109.     Label3.Caption := RtCheckGroup1.Name;
  110. end;
  111.  
  112. procedure TForm1.RtCheckGroup2Click(Sender: TObject);
  113. begin
  114.     ListBox1.Items.Assign(RtCheckGroup2.Checked);
  115.     Label3.Caption := RtCheckGroup2.Name;
  116. end;
  117.  
  118. procedure TForm1.RtCheckGroup3Click(Sender: TObject);
  119. begin
  120.     ListBox1.Items.Assign(RtCheckGroup3.Checked);
  121.     Label3.Caption := RtCheckGroup3.Name;
  122. end;
  123.  
  124. procedure TForm1.RtCheckGroup1Check(Sender: TObject; Index: Integer;
  125.   var Value: Boolean);
  126. var
  127.     Line: string;
  128. begin
  129.     Line := TRtCheckGroup(Sender).Items[Index]+' will be ';
  130.    if Value then
  131.        Line := Line+'checked.'
  132.    else
  133.        Line := Line+'unchecked.';
  134.     if MessageDlg(Line+#13#10+'Proceed ?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
  135.        Value := not Value;
  136. end;
  137.  
  138. procedure TForm1.RadioGroup1Click(Sender: TObject);
  139. begin
  140.     RtCheckGroup1.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  141.     RtCheckGroup2.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  142.     RtCheckGroup3.CheckMode := TRtCheckMode(TRadioGroup(Sender).ItemIndex);
  143. end;
  144.  
  145. procedure TForm1.RtCheckGroup3DrawItem(Sender: TObject; Index: Integer;
  146.   Rect: TRect; State: TOwnerDrawState; var Handled: Boolean);
  147. begin
  148.       with TRtCheckGroup(Sender) do
  149.           if Value[Items[Index]] then
  150.            Canvas.Font.Color := clRed;
  151. end;
  152.  
  153. end.
  154.